home *** CD-ROM | disk | FTP | other *** search
- /************************************************************************************/
- /* HelpCloseProc */
- /************************************************************************************/
-
- #include "MyHeaders.h"
-
- short HelpCloseProc ()
- {
- short HCRetCode = 0;
- short item;
-
- if (windTbl[1].windPtr == 0) /* if window already closed */
- goto ENDING; /* skip this whole thing */
-
-
- LDispose (helpList); /* delete the list */
-
- windTbl[1].windPathRefNum = 0; /* indicate file closed */
- CloseWindow(windTbl[1].windPtr); /* close the window */
- windTbl[1].windPtr = 0; /* indicate closed */
- windTbl[1].windTEChanged = FALSE; /* initialize */
-
- TEDispose (windTbl[1].windTEH[0]); /* 5.1.2 dispose TE area */
-
-
- ENDING:
- return HCRetCode;
-
- }